home *** CD-ROM | disk | FTP | other *** search
/ Interactive CD-ROM & Web Magazine 6 / Interactive CD-ROM & Web Magazine 6.iso / pc / imm / home.dir / 00032.ls < prev    next >
Encoding:
Text File  |  1996-04-03  |  1.1 KB  |  48 lines
  1. global menuList, hotcast, lastmc, pathSeparator, rosso, bianco, verde, currentNetHandler, workingdb, cd
  2.  
  3. on startMovie
  4.   sound stop 1
  5.   sound stop 2
  6.   set verde to the foreColor of field "verde"
  7.   set rosso to the foreColor of field "rosso"
  8.   set bianco to the foreColor of field "bianco"
  9.   if the machineType = 256 then
  10.     set pathSeparator to "\"
  11.   else
  12.     set pathSeparator to ":"
  13.   end if
  14.   set lastmc to -1
  15.   set hotcast to [149, 212]
  16.   positionObject(getAt(menuList, 1), 50, 144)
  17. end
  18.  
  19. on regali
  20.   set workingdb to 3
  21.   go(1, cd & pathSeparator & "IMM" & pathSeparator & "db" & pathSeparator & "db.dir")
  22. end
  23.  
  24. on idle
  25.   gherollero()
  26.   if the machineType = 256 then
  27.     do(currentNetHandler)
  28.   end if
  29. end
  30.  
  31. on gherollero
  32.   set thismc to the mouseCast
  33.   if lastmc = thismc then
  34.     if getOne(hotcast, thismc) then
  35.       mousewithin(script thismc)
  36.     end if
  37.   end if
  38.   if lastmc <> thismc then
  39.     if getOne(hotcast, lastmc) then
  40.       mouseexit(script lastmc)
  41.     end if
  42.     if getOne(hotcast, thismc) then
  43.       mouseenter(script thismc)
  44.     end if
  45.     set lastmc to thismc
  46.   end if
  47. end
  48.